home *** CD-ROM | disk | FTP | other *** search
/ Avalon 6 / Avalon_06_1995_Avalon_Side_A.d64 / forecaster vii (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  134 lines
  1. 10 poke53280,0:poke 53281,0
  2. 20 rem    ********************
  3. 30 rem    * commodore 64/128 *
  4. 40 rem    *weather forecaster*
  5. 50 rem    ********************
  6. 60 print"[147]"
  7. 70 print""
  8. 80 printtab(9)"weather forecaster vii"
  9. 90 printtab(9)"  by john scott kula"
  10. 100 printtab(11)"     01/23/87"
  11. 101 print""
  12. 102 printtab(6)"right 83.64% of the time !!!"
  13. 110 for t=1 to 7000:next
  14. 120 print"[147]"
  15. 130 print"main menu"
  16. 140 print"1. forecast weather"
  17. 150 print"2. quit"
  18. 160 get a$:if a$="" then 160
  19. 170 if val(a$)>2orval(a$)<1 then 160
  20. 180 if a$="1" then 210
  21. 190 if a$="2" then new
  22. 200 new
  23. 210 rem       * forcasting *
  24. 220 print"[147]"
  25. 230 printtab(15)"forecasting"
  26. 240 print""
  27. 250 print"please enter:"
  28. 260 input"temperature:";te
  29. 270 print"is the temperature:"
  30. 280 print"1) steady"
  31. 290 print"2) slow  rise"
  32. 300 print"3) rapid rise"
  33. 310 print"4) slow  fall"
  34. 320 print"5) rapid fall"
  35. 330 get tm$:tm=val(tm$):if tm<6 and tm>0 then 350
  36. 340 goto 330
  37. 350 print"[147]"
  38. 360 printtab(15)"forecasting"
  39. 370 print""
  40. 380 print"please enter:"
  41. 390 input"barometric pressure:";bp
  42. 400 print"is the barometer:"
  43. 410 print"1) steady"
  44. 420 print"2) slow  rise"
  45. 430 print"3) rapid rise"
  46. 440 print"4) slow  fall"
  47. 450 print"5) rapid fall"
  48. 451 print"a rapid change is any change in"
  49. 452 print"excess of 0.06 per hour"
  50. 460 get bm$:bm=val(bm$):if bm<6 and bm>0 then 480
  51. 470 goto 460
  52. 480 print"[147]"
  53. 490 printtab(15)"forecasting"
  54. 500 print""
  55. 510 print"please enter:"
  56. 511 print"as n,ne,e,se,s,sw,w,nw"
  57. 512 print
  58. 520 input"wind direction:";wd$
  59. 530 if wd$="n" then w=1:goto 620
  60. 540 if wd$="ne"then w=2:goto 620
  61. 550 if wd$="e" then w=3:goto 620
  62. 560 if wd$="se"then w=4:goto 620
  63. 570 if wd$="s" then w=5:goto 620
  64. 580 if wd$="sw"then w=6:goto 620
  65. 590 if wd$="w" then w=7:goto 620
  66. 600 if wd$="nw"then w=8:goto 620
  67. 610 goto 480
  68. 620 rem        * search *
  69. 630 if bp>=30.29 and bm=4 and w>=6 and w<=8 then 1000
  70. 640 if bp>=30.24 and bm=1 and w>=6 and w<=8 then 1010
  71. 650 if bp>=30.19 and bm=1 and w>=6 and w<=8 then 1020
  72. 660 if bp>=30.19 and bm=3 and w>=6 and w<=8 then 1030
  73. 670 if bp>=30.19 and bm=4 and w>=6 and w<=8 then 1040
  74. 680 if bp>=30.17 and bm=5 and w>=6 and w<=8 then 1050
  75. 690 if bp>=30.17 and bm=4 and (w=4orw=5) then 1060
  76. 700 if bp>=30.15 and bm=5 and (w=4orw=5)then 1070
  77. 710 if bp>=30.15 and bm=4 and w>=2 and w<=4 then 1080
  78. 720 if bp>=30.13 and bm=5 and w>=2 and w<=4 then 1090
  79. 730 if bp>=30.13 and bm=4 and(w=2orw=3) then 1100
  80. 740 if bp>=30.11 and bm=5 and(w=2orw=3) then 1110
  81. 750 if bp>=29.89 and bm=5 and w>=1 and w<=3 then 1120
  82. 760 if bp>=29.85 and bm=5 and w>=3 and w<=5 then 1130
  83. 770 if bp<=30.10 and bp=3 then 1140
  84. 780 if bp<=30.10 and bm=4 and w>=2 and w<=4 then 1150
  85. 790 if bp<=30.10 and bm=5 and w>=2 and w<=4 then 1160
  86. 800 if bp<=30.00 and bm=2 and(w=5orw=6) then 1170
  87. 1000 print"fair and warmer for the next 48 hours.":goto 9000
  88. 1010 print"continued fair with little or no change in temperature.":goto 9000
  89. 1020 print"fair, little change in temp. for the    next 24 to 48 hours.":goto 9000
  90. 1030 if tm=5 or tm=4 and te<40then 1032
  91. 1031 print"fair today, rainy and warmer in 48      hours.":goto 9000
  92. 1032 print"fair today, possibility of snow in 48   hours.":goto 9000
  93. 1040 if tm=5 or tm=4 and te<40then1042
  94. 1041 print"warmer, rain in 24 to 36 hours.":goto 9000
  95. 1042 print"colder, possibility of snow in 24 to 36 hours.":goto 9000
  96. 1050 if tm=5 or tm=4 and te<40then1052
  97. 1051 print"warmer, rain in 18 to 24 hours.":goto 9000
  98. 1052 print"colder, possibility of snow in 18 to 24 hours.":goto 9000
  99. 1060 if tm=5 or tm=4 and te<40then1062
  100. 1061 print"posibility of snow in 2 to 24 hours.":goto 9000
  101. 1062 print"windy[160] posibility of snow in 12 to 24   hours.":goto 9000
  102. 1070 if tm=5 or tm=4 and te<40then1072
  103. 1071 print"windy, rain in 12 to 24 hours.":goto 9000
  104. 1072 print"windy[160] posibility of snow in 12 to 24   hours.":goto 9000
  105. 1080 if tm=5 or tm=4 and te<40then1082
  106. 1081 print"rain in 12 to 18 hours.":goto 9000
  107. 1082 print"posibility of snow in 12 to 18 hours.":goto 9000
  108. 1090 if tm=5 or tm=4 and te<40then1092
  109. 1091 print"windy and rain in 12 hours.":goto 9000
  110. 1092 print"windy and posibility of snow in 12      hours.":goto 9000
  111. 1100 print"in summer with light winds:"
  112. 1101 print"rain may not fall for days."
  113. 1102 print"in winter: rain in 24 hours"
  114. 1103 goto 9000
  115. 1110 print"in summer: rain likely in 12 to 24 hrs."
  116. 1111 print"in winter: rain or snow with increasing winds.":goto 9000
  117. 1120 if tm=4 or tm=5 and te<40 then1122
  118. 1121 print"heavy rain.":goto 9000
  119. 1122 print"snow followed by a cold wave.":goto 9000
  120. 1130 if tm=4 or tm=5 and te<40 then1132
  121. 1131 print"severe storm warning! windy & rainy[160]    clearing in 24 hrs.":goto 9000
  122. 1132 print"severe storm warning! windy & snowy[160]    clearing in 24 hrs.":goto 9000
  123. 1140 print"clearing and colder.":goto9000
  124. 1150 if tm=4 or tm=5 and te<40 then1152
  125. 1151 print"rain for the next day or two.":goto 9000
  126. 1152 print"possibility of snow for the next day or two.":goto 9000
  127. 1160 if tm=4 or tm=5 and te<35 then1162
  128. 1161 print"rain & windy, followed by clearing and  cool temps. in 24 hrs.":goto9000
  129. 1162 print"snow & windy, followed by clearing and  cool temps. in 24 hrs.":goto9000
  130. 1170 print"clearing in a few hours, fair for the   next several days.":goto9000
  131. 9000 printtab(8)"hit any key for main menu"
  132. 9001 get a$:if a$="" then 9001
  133. 9002 goto 120
  134.